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SATSS$30 SATS SYSTEM SERVICE TESTS SCRELOG,SDELL 16-SEP-1 AX/VMS 4- 
yous800 : g SEp- 1982 §2: $9: 33 LOEtPsY. SREagaYsss 90. MAR; 1 — ( 
- TITLE FAT SS 530 SATS SYSTEM SERVICE TESTS SCRELOG,SDELLOG (SUCC S.C.) 
-IDENT ‘v04=000' 


—MADAARARARRAARRARARASAAAAAAALALELALA SALAS SASL ASE EERE SARA ARERR ESSERE EERE ERR S EES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPHENT, CORPORATION, MAYNARD, MASSACHUSETTS. 


OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
N ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ION OF THE ANY OTHE 
Pp 


» . 
Pid * 
3* * 
Hid * 
se ® 
Pid * 
Pid * 
7* * 
:* PRO Al * 
be RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
3* TRANSFERRED. * 
Hid * 
3* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3* AND SHOULD * 
* * 
2 * 
7* * 
3% * 
7* * 
3* * 
3* * 


NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIBI 
SOFTWARE ON EQUIPMENT WHICH I 


OOOQOoooooooooo 


ITY FOR THE USE OR ama OF ITS 


LITY 
S NOT SUPPLIED BY DIGITAL 


LAR RRBRARAAASAAAAAAAAAALALA ARAL ALALRLESARARRR RSE RRR RARER AAS ALR RASA ARR AAA R SS 


s++ 


OOOOOCOOoooooooooooo 


Qoo 
SOOCOCSCOSOSOSOSOSOSOSOOSOSOSSSOSOSOSOSOSSSOSOSOSOOOSOSOSOSOOOOCOOOSOSOOOSOOOOSOOSoOO 


FACILITY: SYSTST (SATS SYSTEM SERVICE TESTS) 
ABSTRACT: 
THIS MODULE CONTAINS SUBROUTINES WHICH, WHEN LINKED 
WITH SUCCOMMON.OBJ, FORM TEST MODULE SATSSS30 TO TEST SUCCESSFUL 
OPERATION OF THE SCRELOG AND SDELLOG SYSTEM SERVICES. THE SERVICES ARE INVOKED 
UNDER VARIOUS INPUT CONDITIONS WITH VARYING INPUT PARAMETERS. ONL 
SUCCESSFUL STATUS CODES ARE EXPECTED THIS TEST MODULE. CORRECT 
OPERATION OF THE SERVICE FOR EACH OF ITS ISSUANCES IS VERIFIED BY 
CHECKING FOR AN SS$_NORMAL STATUS CODE, EXPECTED RETURN ARGUMENTS 


AND EXPECTED FUNCTIONALITY PERFORMED. 


ENVIRONMENT: USER MODE IMAGE; NEEDS CMKRNL PRIVILEGE, 
DYNAMICALLY ACQUIRES OTHER PRIVILEGES, AS NEEDED. 


AUTHOR: THOMAS L. CAFARELLA, CREATION DATE: MAR, 1977 
MODIFIED BY: 


COOOCoooooooooooooooooo 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


VERSION 1.50 : 25-MAY-79 
01 LDJ 08/17/79 Added code to test for SDELLOG system service. 


SoOoooooo 
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TESTS S$CRELOG,SDELL "9 


EM SERVICE 


~SBTTL DECLARATIONS 


INCLUDE FILES: 


I 
) 
F 


INITIONS 
WORD DEFINITIONS 


EQUATED SYMBOLS: 


OWN STORAGE: 


SYSTEM SERVICE TESTS SCRELOG SDELL 16-SEP=1 AX/VMS Macro Vv04- Page 
DECLARATION g7SEb- 38 88: 48; 34 LOE TPSY. SRE SAY SSS S0.MAR: 1 ° d) 
3 -PSECT RODATA,RD NOWRT ,NOF XE, LONG 
4 TEST MOD AME STRING. C,<SAT ATsés ; TEST MODUL 
5 TEST-MOD “NAM “D: STRING I. <SATSSS TEST MODULE NAME DESCRIPTOR 
: MSGI“INP-CTL:~ STRING I,< SSCLN G2W: ionb T108e :> 
; FAO CTL STRING FOR MSG1 IN SUCCOMMON.MAR 
9 MSG3_ERR_CTL:: STRING I,< *SSCLN!4ZW: 'AS> 
1 : FAO CTL STRING FOR MSG3 IN SUCCOMMON.MAR 
: 1 0 EQLNAM: .LONG 2 + EQLNAM ARGUM 
, 3 ;ADDRESS TESTNUM t se. SUBJECT SYSTER, SERVICE 
4 ¢ LOGNAM: ~LON ; LOGNAM ARGUMENT 
000096" 005p “ADDRESS COMTN t see SUBJECT SY YSTEM” SERVICE 


6 
SATSSS30 EM SERVICE TESTS SCRELOG, SDELL 16-SEP-19 Q: 4 VAX/VMS Macro V04- Page 4 
v04=000 ONS 3b21$8e bg 96: 33 UETPSY.SRCJSATSS 8 omar: 1 : (1) 


ATS SYST 
ECLARATI 
900 5 -PSECT RWDATA,RD,WRT,NOEXE,LONG 
800008 PRIVMASK: BL ; ADDR OF PRIVILEGE MASK (IN PHD) 
A RSLLENTLN: BL > RSLLEN ARGUMENT FOR $TRNLOG 
A RSLBUF “TLN: STRING 9,130 3 RSLBUF ARGUMENT FOR S$TRNLOG 
99 93 4 TABLE_TLN: -BLK ; TABLE ARGUMENT FOR STRNLOG 
$ 95 9 ACMODE_TLN: «BLK 1 ; ACMODE ARGUMENT FOR S$TRNLOG 
0000 96 91 COMTN LONG 0 ; COMPLEMENTED TESTNUM (USED AS LOGNAM) 


weeee CONDITION TABLES FOR CRELOG SYSTEM SERVICE *eeee 


COND 1, LONG <TBLELG?, . 
<SYSTEM TABLE? 


S ER 
T LE 
93 
34 
5 
$ 
9A 3 <GROUP TABLE>,- 
9A 0 CPROCESS TABLE>, = 
00000000 00D5 1 g . LONG LOGSC SYSTEM 
00000001 0009 = 1 LONG LOG$C~ GROUP 
00000002 Dp 13 LONG tOese- “PROCESS 
s 4 6 COND 2, NOTARG, <PREVIOUS STATUS OF LOGICAL NAME>, ~ 
E1 10 <ALREADY EXISTS>, 
OE1 108 <NON-EXISTENT>,~— 
00E1 109 
00000000" 0126 110 . LONG $S$_SUPERSEDE 
00000000' or A 111 > LONG SS$~NORMAL 
012E 118 COND =s3, LONG, <ACMODE>, = 
O12E «114 <KERNEL>, = 
O12— 115 XEQ>, = 
O12E 116 <SUPERS, - 
O12E 9117 <USER> ,- 
IgE 118 
00000000 015D 119 LONG PSL$C_KERNEL 
00000001 0161 120 LONG PSLS$C "EXEC 
00000002 0165 121 “LONG PSL$C~SUPER 
0000000 0169 é * LONG PSLSC “USER 
016D 124 COND 4, NULL 
016E 125 
O16E 126 COND 5, NULL 
O16F 127 
00000000 128 .PSECT SATSSS30,RD,WRT,EXE 
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SO1 S883 CONDITION TABLES Breen 8Be Beitaroe FORIHES Bacto voces nans1 72%" (2, 
9A LSBTTL CONDITION TABLES 
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v002000 TM_SE 4:30:27 


m 
4 

(74) 
om 


MEAN = OOONOUS WIN (OOD NAME WIN 0 OO NAUE WN 0 OONOAOUM EW OOONOUSWNO rm 


MS aac 
SY.S 


-SBTTL TM_SETUP, TM_CLEANUP 

FUNCTIONAL DESCRIPTION: 

neauinen ougelte SIL” atid bBo SEE BE 

TEST MODULE EXECUTION 

CALLING SEQUENCE: 

BSBW TM_SETUP BSBW TM_CLEANUP 

INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 

TM_SETUP: ey Bi INDEX REGISTERS (R2,3,4,5,6) CLEARED; 
| 
| 
| 
| 


VELY, OF 


PRIVILEGES ACQUIRED. 
COMPLETION CODES: 
EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. 
SIDE EFFECTS: 


SS_ CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 
(VIA RSB) IF ERROR ENCOUNTERED. 


TM_SETUP: : 


OOOOCCOCOOCOCOCOCOCOGOOOCCOOOCOOOCOSOOOSCOOCOOCOSOOSOOOOOOOOOOOOOCOOOOOO cx 

COOOCCOCOCOCCOCO COCO OOCOCOCOCSOO OOOO OCOOOOOOOCOOOOOOOOOOCOOOOOOoOO OCUM 

NO MOOS & OH SVOCOOOCOCOCOCOCOCOOCOCSOOCOSOO OOOO OOCOOCOCOOOOOOOOOCOOOOOOOO «+ - 
DDE PDD. DDD DED DD. UT BS BS BB BB BE EAI 


COOOCOOCOOCOCOOCOSOSGOOCOSCOSOCOSOOOOCOOCOCOOSOOSOOOSOOOOOCOOOOOCOOOOOCOOOOOOOCOO -1mH 
haiadadah ahabdabababadtabadaiabatadutaadabatadutatad dabatababababababababadababababuaabeababadabadabababababaiand 


3 D4 CLRL : ; INITIALIZE 
v4 CLRL OR : ¢ NDITION 
4 D4 CLRL RG ie LE 
35 D4 CLRL sR + liecee INDEX 
F ps CLRL = RO  Reaeeiqacn REGISTERS 
FFF3' 30 BSBW MOD_MSG_P ; PRINT TEST MODULE BEGIN MSG 
00000000" EF 00000: mH OF 0 MOVAL TEST aco eee TMD_ADDR poaus END MSG WILL SHOW SUCCESS 
03 00 BF F INSV #SUCTESS>#0,#3,MOD_MSG_ CODE: ADJUST STATUS CODE FOR SUCCESS 
MODE RNL KERNEL MODE TO ACCESS PHD 
59 00000000'9F DO 004 MOVL 108? ogee R9 GET PROCESS HEADER ADDRESS 
OO'EF 69 DE 004 MOVAL PHDSO PRIVASE(RO) PRIV mir ; GET PRIV MASK ADDRESS | 
3 MODE FROM BACK TO USER 
PRIV ADD, ALL * EET ALL PRIVILEGES 


a EN > Oe co 


SATS SYSTEM SERVICE peat SCRELOG, $0 SDELL i ei tt 

TM_SETUP, TM CLEANU “SEP=1 

see inne $ L$ ” ems NAME _D 
MAL RNED FROM SETPRN 


Sete te 


mc 


MOD_MSG_PRINT 
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5005000" CONDITION. SUBROU Hee, TESTS, ,SCRELOG,SDELL 1 ~3Eb=198e Oess0:27 LURtPSY.eaeagavessso.mar;1 29° (2, 
05 : ages ; RETURN TO MAIN ROUTINE 
05 908¢ vonpar, * ; RETURN TO MAIN ROUTINE 
os boeD 588 ; RETURN TO MAIN ROUTINE 
05 BE iH tats We ; RETURN TO MAIN ROUTINE 
05 906F 33 sate ; RETURN TO MAIN ROUTINE 
os b0C0 Sei RSE ; RETURN TO MAIN ROUTINE 
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~SBTTL FORM_CONDS 
: FUNCTIONAL DESCRIPTION: 


FORM CONDS FORMATS AND PRINTS pee os ABOUT 
THE CURRENT ELEMERT IN EACH OF THE CONDITION TABLES. 


CALLING SEQUENCE: 
BSBW FORM_CONDS 
: INPUT PARAMETERS: 

; NONE 

; IMPLICIT INPUTS: 


5, : CONTAIN CURRENT CON 
ms fok CON ND TABLES 1,2,3,4,5, 


DIT 
BLE RESP 
CONOX’T’= TITLE TEXT FOR 
XT 

H 

S 


: TABLE INDEX VALUES 
: FOND TAB - ELEMENT TE 


ION 
ECTIVELY 
CONDX TABLE 

A lh: CONDX TABLE 
F 


CONDX_C = CONTEXT OF THE CONDX TABL 
THE CONDX TABLE 


CONDX"E - DATA ELEMENT 
: QUTPUT PARAMETERS: 

NONE 

: IMPLICIT OUTPUTS: 

: NONE 

: COMPLETION CODES: 

NONE 

: SIDE EFFECTS: 

; NONE 


0 


COOO0O0O0 OO OW 0000090009 090909 SINISE SIN NIPA AOA AOAO 


© 
OWONAMN EWN O ODNA UE WN 0 OD NOA UNE WIN 0 ODNOUE WH 


—— | SQOODOOOCOCOCSC ND 


OOO NOUE WO ODNOUE WN O 


FORM_CONDS: : 
SFAO_S MSG1_INP_CTL,FAO_LEN,FAQ_DESC. TESTNUM 
7 FORMAT CONDITIONS HEADER MSG 
FFIDY 30 BSBW © OUTPUT_MSG tee. AND PRINT IT 
4 06 91 CMPB = #COND 1, @NULL : TS" CONDITION 1 NULL ? 
3 i BNEQU : NO == CONTINUE 

000? 3 ros, ORM «FORM. CONDSX : YES == SUBROUTINE IS FINISHED 
0039990000" EF ‘EF «oD MOVAL CONDI _T NEGA ; SAVE ADDRESS OF CONDITION 1 TITLE FOR FAO 
"EF A2*EF 42 MOVL  COND1~TABLR2),MSG_B ; SAVE ADDR OF COND 1 CURR TEXT ELT FOR FAO 

04 : MOVE  #CONDT_C.MSG_CTXT AVE CONDITION 1 CONTEXT FAO 
1 MOV. VAL COND1_C,CONDT.ECR2).MSG_BATA] ; GIVE COND 1 DATA VALUE. TOF AO 


al 
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5002880 FORM_CONDS mies 7 90:48:39 UETPSY. Bae vets so. MAR; 1 ow iD 
FEEB’ ; 113 0 BSBW =: WRITE_MSG2 ; FORMAT AND WR TE CONDITION 1 MSG 
14 11 1 CMPB = #@COND2_C , @NULL ¢ 1S COND ITION 
} 118 ; BNEQU + NO == CONTI NUE 
OOA 1 pe BRW FORM_CONDSX + YES == SUBROUTINE IS FINISHED 
QOOOOD00'EF  QOOODOE1'EF DE 01 5 MOVAL COND : SAVE ADDRESS OF CONDITION 2 TITLE FOR FAO 
00000000’ EF 90090 0 ctr eS b6 1 : é MOVL COND STABERSS MSG_B ; SAVE ADDR OF COND 2 CURR TEXT at FOR FAO 
00000000'EF 00 90 01 MOVB #CON SG_CTXT~ SAVE CONDITION 2 CONTEXT 
13€ 8 MOV_VAL COND2_C END? ECR3],MSG_ BATAT GIVE COND 2 DATA VALUE ro. FAO 
FEBF 30 13 9 BSBQ WRITE -MS ; RAT 1 AND D ARTE: CO CONDITION MSG 
14 04 1 0141 0 CMPB #COND3_C,#NULL ; St 
03 1 144 1 BNEQU 30$ ; NO == One ONT INUE 
00 146 é nae BRW FORM_CONDSX : YES == SUBROUTINE IS FINISHED 
00000000'EF 0000012E'EF DE 149 4 MOVAL COND sffe! : SAVE ADDRESS OF CONDITION 3 TITLE FOR FAO 
00000000'EF  00000136'EF44 DO 0154 5 MOVL COND STAB Ra) MSG 8 ; SAVE ADDR OF COND 3 CURR TEXT ELT FOR FAO 
00000000'EF 04 90 160 : MOV 8 ONS ¢ $G_€TX SAVE CONDITION 3 CONTEXT FOR FAO 
18 MOV_VAL COND Ct to ND3 EtR4), MSG_ baTAl : GIVE COND 3 DATA VALUE TO FAO 
FEBA' 30 0173 8 $BQ RITE MSG ; FORMAT AND WRITE CONDITION 3 MSG 
16 16 91 0176 9 CMPB SCONE C, #NULL + IS CONDITION 4 NULL ? 
47 13 0179 «340 BEQLU FORM, COND Sx ; == SUBROUTINE IS FINISHED 
00000000°EF — 0000016D'EF De 178 0341 MOVAL CON seas! ; SAVE ADDRESS OF CONDITION 4 TITLE FOR FAO 
00000000'EF 00000160" EF45 p 186 4¢ MOVL ma “TiB R5J,MSG_B ; SAVE ADDR OF COND 4 CURR TEXT ELT FOR FAO 
00000000'EF 14 90 019 4 MOVB ONDS_C,MSG_CTX SAVE CONDITION 4 CONTEXT FOR FAO 
tba 44 MOV_VAL CONDE * £EQNDE.. ECRS],MSG baTAL: GIVE COND 4 DATA VALUE TO FAO 
FE64" 30 0199 345 BSBQ WRITE~MS ; FORMAT AND WRITE CONDITION 4 MSG 
4 16 91 019¢ 46 CMPB SCONDS C,#NULL : IS CONDITION 5 NULL ? 
21 13 «O198F §8=34 BEQLU FORM C6 6 : YES == SUBROUTINE IS FINISHED 
00000000'EF 0000016E'EF DE O1A1 348 MOVAL COND seas t SAVE ADDRESS OF CONDITION 5 TITLE FOR FAO 
00000000°EF  O000016E'EF46 DO O1AC 349 MOVL COND “tis RB) MSG_B : SAVE ADDR OF COND 5 CURR TEXT ELT FOR FAO 
00000000'EF 14 90 0188 350 MOVE  #CONDS_C,MSG CTX VE CONDITION 5 CONTEXT FOR FA 
O1BF 51 MOV_VAL CONDS_C  EONDS. etR6), MSG _batal : GIVE COND 5 DATA VALUE TO FAO 
FE3E’ 30 O1BF 3 BSBQ  WRITE-MSG2 ; FORMAT AND WRITE CONDITION 5 MSG 
ae: 53 FORM_CONDSX: 
05 O1C 54 RSB ; RETURN TO CALLER 
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7 
YSTEM SERVICE TESTS SCRELOG, SDELL <* 


TSTB FLAG 
BEQL 
FORM_CONDS 


MCOMW TESTNUM, COMTN 
CMPL sf $$ NORMAL , COND2_ECR3J 


BNEQU 
BRW $ 


MODE TO 10S -KRNL 
SCRELOG_S fBLFLGCRO],LOGNAM,EQL 


MODE FROM, 108 
SS_CHECK NORMAL 


MODE TO, 30$,KRNL 
weenee SYSTEM SERVICE CALL WHICH IS THE SUBJECT OF THIS TEST CASE *eeeee 


Bc 00:50:27 EEtPsY. SReSsAvsssso.man:1 #8 Uf, 


; SHOULD CONDITIONS BE PRINTED ? 


; NO == CONTINUE 


; YES -- FMT & PRINT ALL CONDS FOR THIS T.C. 
GET A LOGICAL NAME UNIQUE TO THIS T.C. 
I$ TED ? 


NORMAL EXPEC 


NO == CONTINU 


YES -- GO RIGHT TO SUBJECT SERVICE 


; TO KERNEL FOR EXTRA CRELOG 


NAM, ACMODELR4] 


; CREATE "ALREADY EXISTENT’’ LOGICAL NAME 


ACK TO 
CHECK FOR NORMAL STATUS CODE 
GET KERNEL FOR SUBJECT SERVICE 


SCRELOG_S TBLELGER2],LOGNAM, EQLNAM ACMODECR4] 
FROM, 30$ ; BACK TO US 


MODE 


MOVL COND ECR3],EXPV 
CMPL RO, EXPY 


BEQLU 
MOVL 


ER 
LOAD UP EXPECTED STATUS CODE 


: vee RECEIVED = CODE EXPECTED ? 


S -- DO SOME MORE VERIFYING 
T REC'D STAT CODE INTO STORAGE 


RO,RECV : GE 
ERR_EXIT LONG, <INCORRECT STATUS CODE RETURNED FROM CRELOG> 
PRINT ERROR MSG & EXIT SUBROUTINE 


STRNLOG S LOGNAM,RSLLEN_TLN,RSLBUF TLN,TABLE_TLN,ACMODE TLN 
NORMA ; CRECK FOR 


SS_CHECR 
™ 


OTL TBLFLGCR2],EXPV 
CMPB ss TABLE_ TLN EXPV 
QLu 608 


BEQL 
OVvB 


MOV TABLE_TLN,RECV 

ERR_EXIT BYTE><LOGICAL NAME CREA 

CHPL TBLFLGLR2],#LOGSC_PROCES 
0s 


MOVL  ACMODECR4),EXPV 
ACRODE _TLN,EXPV 


CMPB 
BEQLU 


NORMAL STATUS CO 


HH EXPECTED VALUE OUT 0 


F COND TABLE 
ID TRNLOG ie CORRECT TABLE FLAG VAL ? 


YES == MORE VERI 
; PROCESS ERROR & EXIT ... 


TED FOR WRONG TABLE> 


: 


ied LOG NAME IN PROCESS TABLE ? 


NO -- BYPASS ACMODE TEST 


YES -- GET EXP ACMODE OUT OF COND TABLE 


; DID TRNLOG RETURN CORRECT ACCESS MODE ? 


YES -- KEEP GOING 
- ESTAB RECV & TAKE ERROR EXIT ... 


MOV ACMODE_TLN,RECV > NO - 
ERR_EXIT BYTE,ZLOGICAL NAME CREATED FOR WRONG >, - 
<ACCESS MODE> 


CMPW RSLLEN_TLN,EQLNAM 
he 
80$ 


BNEQU 
BRW 


MOV EQLNAM,EXPV 


; pie Lage RETURN CORRECT STRING LENGTH ? 
; YES == DO ANOTHER VERIFY 
; LOAD UP EXPECTED AND 


7 
Vor=080 SARS GPSTEN SERVICE TESTS SCRELOE.SDELL p-SEP-1986 89:48:55 YARCUME Mee TOLER annsn MORPH v0 


00000000'EF  O0000008'EF 80 4A 470 RSLLEN_TLN,RECV RECEIVED VALUES, THEN EXIT 
4 47 itt EXIT WORD, ZINC CORRE Cr LENGTH | treated FOR > 
47 47 a * <EQUIVALENC 
88 4C7 47% PUSHR #CMPC_SAV ; SAVE SOME REGS USED BY CMPC 
QO00000E ' FF 9000 O08 ve 4cB 475 CMPC —aRSLLER_TLN, @RSLBUF_TLN+4, @EQLNAM+4 
408 476 ; TRANSLATED STRING MATCH THAT CREATED ? 
0000' ef BA 0408 47 POPR #CMPC_SAV ; RESTORE SOME REGS USED BY CMPC 
3 iF 4DF 428 BNEQU > NO == CONTINU 
0064 3 AE! 479 ne BRW VERIFYX : YES <= EVERYTHING VERIFIES 
QOOO0000'EF  GYOO000SI"EF 7D O4E4 481 wova EQLNAM, EXPV ; LOAD UP EXPECTED AND 
00000000'EF  OOQ0000A'EF 7D OsEF 4 ; MOVa _RSLB Cv pet RECELV ED VALUES, THEN EXIT 
OFA ERR_EXIT DESC, “INCORRE ECT EQUIV ivacncé NAME >, = 
GFA 484 G CREATED> 
348 485 VERIFYX: 
05 0548 486 RSB ; RETURN TO CALLER 


? 
SATSSS30 SATS. SYSTEM SERVICE TESTS SCRELOG, SDELL 16-SEP-1984 00: AX/VMS Macro V04- ° 
$642880 VFY_C green 8Be Beishioe FORINES Bacco vOeeee mans1 eee 
LSBTTL VFY_CLEANUP 
FUNCTIONAL DESCRIPTION: 


eee 
~O~OCcD0D 
—Owoe 


= 
oO 


SUED 


xz=V~awm 


AN 
EXIT 
“REQUIRED 
NG 


ne 


CALLING SEQUENCE: 

BSBW VFY_CLEANUP 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 


R2,3,4,5,6 CONTAIN CURRENT CONDITION TABLE INDEX VALUES 
FOR coud 1 TABLES 1,2,3.4,5, RESPECTIVELY 


238 
494 
495 
496 
49 
498 3 W 
499 
i 
is 
6 
it 
a 
51 
318 FOR X Solis 
514 CONDX’E’= ADDRESS OF TABLE OF DATA VALUES FOR CONDX 
515 TABCE. IF THE CONTEXT OF TABLE X IS A SYSTEM SERVICE 
216 ARGUMENT, THE ARGUMENT NAME MAY "BE USED AS A SYNONYM 
217 FOR CONDX_E. 
319 OUTPUT PARAMETERS: 
; 1 NONE 

3 358 

3 ; IMPLICIT OUTPUTS: 

3 ; 5 NONE 

3 ; ; COMPLETION CODES: 

; ; EFLAG SET TO NON-ZERO IF ERROR ENCOUNTERED. 

3 1 : SIDE EFFECTS: 

9 : SS_CHECK AND ERR_EXIT MACROS CAUSE PREMATURE EXIT 

3 4 (VIA RSB) IF ERROR ENCOUNTERED. 

9 _ 

: 

9 

S 40 VFY_ CLEANUP: : 

9 541 MODE 0$,KR BNL L MODE 

‘ 4g SDELLOG_ 5. Orne fer GER ],LOGNAM, ncwobethal ; UND SUBJECT SERVICE 

B 544 SS_ EHECK. NORA AL : CHECK NORMAL STATUS CODE 


slay 


SATS pyrtes SERVICE TESTS SCRELOG, $0 SDELL _* see 1384 39: $3: 33 AX/VM Bacce S's MAR: 1 Page 16 


VFY_CLEAN -SEP=-1 UETPSY.SRCJSATSSS (1) 
B 45 MODE 0,20$,KR Nt bead mode 
D 46 SDELLOG 4 netsh ger j -LOGNAN, ACMObE Ria: i check for actual delete 
F4 4 MODE back to user mode 
B3 48 ss CHECK RO OENAN ; ee k correct status return 
05 $63 3 fm ; RETURN TO CALLER 


SATSSS30 
Symbol table 


DA 
SSSSTRINGS 
SS$STRINGSZ 
$$11 

$$12 

ACMODE 
ACMODE_TLN 
BY 


COND4_C 
COND4~ CLEANUP 
COND4"H 
COND4~T 
COND4~TAB 
ONDS 

COND5_C 
COND5~ CLEANUP 
COND5"H 


COND5~T 
COND5~TAB 
CTL$GC_PHD 
DESC 

EFLAG 


ReReKEEE 
REEERERE 
RREERREE 
RREKKERE 
RREEKRKE 
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So 
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NULL 

sy rUt ee 
PHD$Q_PRIVMSK 
PRIVMASK 


PRIV_ARGS 
PROCESS ERR 
PSLSC_EREC 
PSL$C_KERNEL 
PSL$C_SUPER 
PSL$C_USER 
QUAD 

RECV 
REST_REGS 
RSLBOF_TLN 
RSLLEN-TLN 
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00000051 


ARRAS SS 
RReeTEee 
RRRAAARE 


RERKRERE 
RERRRERE 


$008 019 R 


0000039 


RRRREREE 
RRARRAREE 
RRRKKERK 
RRRKEKEE 


00000000 
00000014 


RRAEKEHAE 
RRRKHREK 
00000000 
00000000 
00000002 
RERHRAAE 
00000001 
00000000 
BROS On 
0000000 
00000008 
RRAEKKEEK 
RREKKEEE 
Q000000A 
00000008 
REAREREE 
RREKHEEE 
RERKREEE 
RREKRAEE 
REEKEEEE 
RREKKEEE 
RAREREEKE 
REeeeeee 
Reeeeeee 
RREEKERE 
Rereeene 
Raeaereene 


0000094 
0000005 
geaeeene 
$008 00 
000000 


geeaeeee 
geeereeee 


000000 


x 

xX 

x 
RG 
R 


x 
RG 
RG 
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SATSSS30 SATS SYSTEM SERVICE TESTS SCRELOG,SDELL 16-SEP-1984 00:49:54 VAX/VMS Macro 
Symbol table atte 2:40:37 LUETPSY  SREISA 


VERIFY 1€3 RG 4 
VERIF YX 548 R 4 
VFY_ CLEANUP 549 RG 4 
RB = 00000002 G 
WRITE _MSG2 eeeeeree XK 04 


! Psect synopsis ! 


pew awe enw wr econ ae + 


PSECT name Allocation PSECT No. Attributes 
- AB 00000000 <( 0.) 00 ¢ OQ.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD 
SABSS 00000000 <¢ 8. 01 1.) NOPIC USR CON ABS LCL NOSHR EX 
RODATA 00000061 97.) 8 ( ¢°} NOPIC USR CON REL LCL NOSHR NOEXE RD 
RWDATA 44 9b ( 332-3 03 ¢ -) NOPIC USR CON REL LCL NOSHR NOEXE RD 
SATSSS30 00000624 ( 1572.) 04 ¢ 4.) NOPIC USR CON’ REL LCL NOSHR EXE RD 
fee ee oe Snecma naeae 
: Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.07 00:00:00.26 
Command processing 107 00:00:00.68 00:00:03.12 
Pass 1 265 00:09:07.76 00:00:13.71 
Symbol table sort 0 00:00:00.54 00:00:00.58 
Pass 118 60:00:02.00 00:00:02.44 
Symbol table output 15 00:00:00.09 00:00:00.13 
Psect synopsis output § 00:00:00.03 00:00:00.04 
Cross-reference output 00:00:00.00 00:00:00.00 
Assembler run totals 538 00:00:11.20 00:00:20.29 


The working set Limit was 1350 pages. 

40009 bytes (79 pages) of virtual memory were used to buffer _the intermediate code. 

There were 20 pages of symbol table space allocated to hold 361 non-local and 47 local symbols. 
0 source Lines were read in Pass 1, producing 25 object records in Pass 2 

37 pages of virtual memory were used to define 28 macros. 


weer eee mem em eee eee ee Hee eee eH yh 


Macro Library name Macros defined 
$255$DUA28: Suet see ie -m8st 
:CSYS.OBJJLIB.MLB; 


~$255$DUA28: (SYS. -MLB; 1 
$255$DUA28: CSYSLIBISTARLET .MLB; 2 


TOTALS (all Libraries) d 
687 GETS were required to define 25 macros. 

There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:SATSSS30/0BJ=0BJ$:SATSSS30 MSRC$:SATSSS30/UPDATE=(ENHS$: SATSSS350) *EXECMLS/LIB+SHRLIBS:UETP/LIB 


$8590.MAR: 1 


NOWRT NOVEC BYTE 
WRT NOVEC BYTE 
NOWRT NOVEC LONG 
WRT NOVEC LONG 
WRT NOVEC BYTE 


- DIGITAL EQUIPMENT CORPORATION 
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